home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / packer / ppack / rexx / ppdecrunch.ced
Text File  |  1995-03-09  |  1KB  |  43 lines
  1. /**************************************************************************************
  2. *****    $VER: PPDecrunch 1.1 (13.10.92)
  3. *****    Freeware © 1992-1994 by PROXITY SOFTWORKS
  4. *****    Author: Boris Folgmann
  5. **************************************************************************************/
  6.  
  7. /* Global definitions */
  8.     OPTIONS RESULTS
  9.  
  10. /* Constants */
  11. LF        =    "0A"X
  12. TEMPFILE    =    "T:PPDecrunch.tmp"
  13.  
  14. /* PPDecrunch */
  15.  
  16.     ADDRESS    "rexx_ced"
  17.  
  18. /* Get PPID and check */
  19.     "Beg Of File"; Status 55; ppid=LEFT(RESULT,4)
  20.     IF (ppid ~= "PP20") THEN
  21.     DO
  22.         Okay1 "No Powerpacker datafile!"
  23.         EXIT
  24.     END
  25.  
  26. /* Mark whole file as block, cut and save to packed tempfile */
  27.     "Mark block"; "End of file"; "Cut block"; "Save block to file" TEMPFILE".pp"
  28.  
  29. /* Free blockbuffer (put an 'a' into blockbuffer) */
  30.     "Mark block"; Rawkey 32 0; "Cut block"
  31.  
  32. /* Decrunch packed tempfile and delete it */
  33.     ADDRESS COMMAND    PPack TEMPFILE".pp" "DECRUNCH";
  34.  
  35. /* Load tempfile; filename doesn't change! */
  36.     "Include file" TEMPFILE
  37.  
  38. /* Delete tempfile */
  39.     ADDRESS COMMAND    Delete TEMPFILE
  40.  
  41.  
  42. EXIT(0)
  43.